<%
'-------------------------------------
'ߣAlex   ԣ  ϵQQ:379026230
'ܣQzoneư QQռ˳
'ʾhttp://www.aligaga.cn/
'-------------------------------------
%>
<% 	option explicit
	'response.buffer = true
	dim startime
	dim conn
	dim connstr
	startime=timer()
%>
<!--#include file="../@admin@" -->
<%
	ConnectionDatabase
	Sub ConnectionDatabase
	Dim ConnStr
	ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
	'ķýϰ汾Accessӷ
	'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
	On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		err.Clear
		CloseDatabase
		Response.Write "ҳԺʣ"
		Response.End
	End If
	End Sub	

Sub CloseDatabase
	Conn.close
	Set conn = Nothing
End Sub

dim hx
set hx=new cls_qzonev_com
dim hxcache
set hxcache=new cls_Cache
hxcache.CacheName="qzonev_com"
hxcache.Name="js"
hxcache.Reloadtime=CacheTime

Dim SqlNowString
If IsSqlDataBase = 1 Then
	SqlNowString = "GetDate()"
Else
	SqlNowString = "Now()"
End If

dim FYCC_19,FYCC_20,FYCC_21,FYCC_05
dim FYCC_17,FYCC_18

FYCC_05=""
'CCLog.txtŵ·ļ!Ҫֶ!
',ǰϷ"/"

FYCC_18=1 
'ˢCCر,1Ϊ0Ϊر

FYCC_17=1
'ˢ½ֹIPܹر,1Ϊ0Ϊر

FYCC_19=10 
'ÿˢ´,ʾ

FYCC_20="http://www.qzonev.com"
'IPԶתҳ,Ųַ!!!

FYCC_21=20
'ˢ¼νֹIP

dim realip,proxy,getip,fsoObject,file,tsObject,objFSO,objCountFile,fdata
realip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
proxy = Request.ServerVariables("REMOTE_ADDR")
if realip = "" then
GetIp = proxy
else
GetIp = realip
end if

Sub FYCC_03()
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") 
file = server.mappath(""&FYCC_05&"/CCLog.txt") 
if not fsoObject.fileexists(file) then 
fsoObject.createtextfile file,true,false 
end if
set tsObject = fsoObject.OpenTextFile(file,8) 
tsObject.Writeline " "&GetIp&"" 
Set tsObject = Nothing 
Set fsoObject = Nothing 
End Sub

if FYCC_18<>0 then
if FYCC_17<>0 then
if minute(now())>-1 and minute(now())<4 then
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile=objFSO.CreateTextFile(Server.MapPath(""&FYCC_05&"/CCLog.txt"),True)
objCountFile.Write " "
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
end if
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") 
file = server.mappath(""&FYCC_05&"/CCLog.txt") 
if not fsoObject.fileexists(file) then 
fsoObject.createtextfile file,true,false 
if err.number<>0 then
response.write "Ŀռ䲻֧FSOͬĿռϵ߲鿴Ȩ"
response.end
end if
end if
Set objCountFile = fsoObject.OpenTextFile(Server.MapPath(""&FYCC_05&"/CCLog.txt"),1,True)
If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll
Set objCountFile = Nothing 
if instr(fdata,""&GetIp&"")>0  then
response.write "IP["&GetIp&"]Ѿֹ!ĵԿ,㳢Թ,IPύв鴦,û,ҪϵԱ!QQ:383614311"
response.end
end if
Set fsoObject = Nothing 
end if

if Session("FYCC_01")>FYCC_19 and minute(now())<>Session("FYCC_02") then
Session("FYCC_01")=1
Session("FYCC_02")=minute(now())
elseif Session("FYCC_01")>FYCC_21-1 and minute(now())=Session("FYCC_02") then
if FYCC_17<>0 and Session("FYCC_01")>FYCC_21-1 then
Call FYCC_03()
end if
response.redirect ""&FYCC_20&"" 'Ųַ!!!
response.end
elseif Session("FYCC_01")>FYCC_19 and minute(now())=Session("FYCC_02") then
response.write "ôʲô,1ֻܷ"&FYCC_19&"ҳ,һˢ±ҳ"
Session("FYCC_01")=Session("FYCC_01")+1
response.end
else
if Session("FYCC_01")="" then
Session("FYCC_01")=1
Session("FYCC_02")=minute(now())
else
if minute(now())<>Session("FYCC_02") then
Session("FYCC_01")=1
Session("FYCC_02")=minute(now())
else
Session("FYCC_01")=Session("FYCC_01")+1
end if
end if
End if
end if
%>
<%session("from")="a"   %>
<!-- #include file="../@class@" -->